tt a tt St Ht tt HH HH HH Ha 
tt a tt a a tt i 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 


HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HH HHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 


tt tt tt st 4 Ht Ht Ht Ht Ht Ht HH HH 
AAA a 
| LE) 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


**F [LE**1D®*MTHCGABS 


MM MM TTTTTTTTTT HH HH cccccccc GGGGGGGG AAAAAA BBB8B8B8B 
MM MM TTTTTTTTTT HH HH cccccccc GGGGGGGG AAAAAA BBBBBBBB 
MMMM =6MMMM TT HH HH CC GG AR AA BB 
MMMM MMMM TT HH HH CC GG aa AA BB 

MM 6M OMM TT HH HH CC GG Ab Aa 

“mM 60MM MM TT HH CC GG AA AA 

MM MM TT HHHHHHHHHH = CC GG AA AA 88888888 
MM MM TT HHHHHHHHHH = CC GG AA AA BB 
MM MM TT HH CC GG GGGGGG AAAAAAAAAA 88 

MM MM TT HH HH CC GG GGGGGG AAAAAAAAAA 6B 

MM MM TT HH HH CC GG GG AA AA BB 

MM MM TT HH HH CC GG GG AA AA BB 

MM MM TT HH HH ccccccce GGGGGG Aa AA 88888888 
MM MM TT HH HH ccccccce GGGGGG Aa AA 68888888 
LL IIIIII SSSSSSSS 

LL HII! SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] $$ 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL III] SSSSSSSS 


E 
BTNSCGARS G COMPLEX*16 Absolute value 16-SEP-1984 01:08:31 VAX/VMS Macro v04-00 Page 0 
Table of contents 


HISTO ; Detailed Current Edit History 
DECLARATION NS 
6 MTHSCGABS = G COMPLEX*16 Absolute Value 


MTHSCGABS G COMPLEX*16 Absolute value os eb 9 9: 96:31 AX/VMS Macro V04-00 Page 
1-001 6-SEP=1984 11:21:01 CMTHRTL.SRCIMTHCGABS.MAR; 1 
1 - TITLE WINSCGABS G COMPLEX*16 Apeokuse value 
§ IDENT /1-001/ ; File: MTHCGABS.MA 
0002S 
B86 § ITIIITIT III IIII IIIT TTT TIT iTiitit ii iititiiititititiiititiiiitiitii titi ty 
3* & 
000 8 ;* cperernt (c) 1978, 1980, 1982, 1984 * 
O38 9 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
a4 19 ‘* ALL RIGHTS RESERVED. ® 
$ ® 
44 \ :* THIS SOFTWARE IS A gt el UNDER A LICENSE AND MAY BE USED AND COPIED * 
000 135 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tint AND WITH THE * 
0000 14 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 15 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 16 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 4 3* TRANSFERRED. * 
hed * 
0000 19 ;* THE oe an IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 20 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
9000 gi is CORPORATION. * 
3 * 
0000 33 :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 4 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 25 :* . 
0000 26 :« . 
0000 C7 FRRRRAA RARER A AAA A EATER AREA AAA AERA ARATE AAA AA TATA ATE AAA eee eee ee 
0000 28 ; 
0000 9; 
0000 0; 
0000 13 FACILITY: MATH LIBRARY 
0000 ¢ + 
0000 ; : ABSTRACT: 
944 ze ; Return the absolute value of the G COMPLEX*16 value. 
0000 36 ; 
0900 H ~~ 
0000 8 ; 
0000 39 ; VERSION: 1 
0000 40 ; 
0000 41 ; HISTORY: 
0000 4g : 
0000 43 ; AUTHOR: 
8008 44 ; Steven B. Lionel, 20-July-1979 
0 45 ; 
0000 rt] ; MODIFIED BY: 
0000 47; 
0000 48 ; 
0000 49 ; 
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4 ; Edit History 
6 : 1-001 - Adapted from MTHSCABS version 1-002. SBL 20-July=-1979 
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1-001 DECLARATIONS green 1o86 Siistiol LMTARTE. eaeoaTuccase mars? 2% °% 
38 ~SBTTL DECLARATIONS 
60 ; 
0 61 : INCLUDE FILES: 
¢ 
gz 
0 69 ; EXTERNAL SYMBOLS: 
8 89 : -DSABL GBL 
309 68 -EXTRN MTHSGSQRT_RS 
Nita $3 3 
909 71 : MACROS: 
00 i ; 
ae 
0090 75 : PSECT DECLARATIONS: 
00000000 0 .PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 
83 
0000 #79 : EQUATED SYMBOLS: 
0000 «80: 
$33 
0000 HG : OWN STORAGE: 
8 Bhoe 
2099 e? : .SBTTL MTHSCGABS - G COMPLEX*16 Absolute Value 
9000 89 ; FUNCTIONAL DESCRIPTION: 
0000 91 : MTHSCGABS computes the absolute value of a COMPLEX number (r, i) 
464 38 : as follows: 
9000 34 ; result = ABS(MAX*SQRT( (MIN/MAX) *#2 + 1)) 
0000 %6 : CALLING SEQUENCE: 
0000 97 ; result.wd.v = MTHSCGABS (arg.rgc.r) 
900099 
2099 100 + INPUT PARAMETERS: 
00000004 a000 198 : arg = 4 ; The address of the G COMPLEX*16 argument. 
900 104 : IMPLICIT INPUTS: 
it ; 5 ; NONE 
208 : OUTPUT PARAMETERS: 
109 : 
0 110 + IMPLICIT OUTPUTS: 
3 i : NONE 
00 118 : COMPLETION CODES: 
000 114: NONE 


a | > <7 


'-o 


MTHSCGABS G COMPLEX*16 Absolute value 16-SEP-1984 01:08:31 VAX/VMS Macro v04-00 P | 
1-001 MTHSCGABS = G COMPLEX#16 Absolute Value pats 7 9 983) MTHRTL.SRCIJMTHCGABS ..MAR; 1 90 3 
15 
119 : FUNCTION VALUE: 
wy 8 118 ; The G floating absolute value is returned in RO-R1. | 
8 101 ; SIDE EFFECTS: 
0 1 ¢ 3 Signals: Invalid Operand if r or i are undefined (-0.0). 
00 125 ; Floating overflow if r and i are both Large. 
000 124 ;-- 
00 } 5 
003C $8 1 5 -ENTRY MTHSCGABS, “M<R2,R3,R4,R5> 
44 128 MTHSFLAG_JACKET 3; resignal 
6D 00000000'GF 9E 4 MOVAB G*MTHSSJACKET_HND, (FP) 
00 ; set handler address to jacket 
4 3 handler 
54 04 AC 010 0009 193 MOVL A he R4 ; Get address of argument 
50 84 7D 000D 130 MOVG (R4)+, RO : Get real part 
S52 64 7D ooi9 13) MOVQ (R4) ; Get imaginary part 
55 50 0B 04 EF O01 1 § EXTZV #4, #11, RO, RS 3; Get exponent of real part 
55 52 0B 04 ED 0018 13 CMPZV #4, #11, R2, RS 3 is fea tnery part bigger? 
09 18 OO1D 134 BGEQ REAL ; Yes, that is correct 
54 50 7D OOI1F 135 MOVQ 0, ; Swap values 
50 52 7D 00 g 136 MOVQ R2, R 
52 54 7D + 2 ' f MOVQ R4, R2 
3 ; iz REALLO: 
0028 141 ; at this point RO-R1 contains MIN (the smaller of ir! and ‘it), and 
4 : 146 : R2-R3 contains MAX (the Larger of ir: and iii). 
52 53F0 09 144 ° TSTG ; is divisor zero? 
| ae 02B 145 BEQL ZERO : yes answer is zero 
50 32 46FD 0020 146 DIVG Re, RO > RO-R1 = 
50 50 44FD 0031 147 MULG RO, RO 3; RO-R1 = il Leyte! in 
50 08 40FD 0035 148 ADOG #1, 3 RO-R1 = (MIN/MAX) *##2 + 1 
7E 52 7D 0039 149 mMOVa R2, -(SP) 3; Save maximum 
00000000‘ EF 16 Q03C 150 JSB MTHSGSQRT_RS5 3 RO-R1 = SQRT( (MIN/MAX) #*#2+41) 
50 6E& 44FD 0042 151 MULG2 (SP), RO 3 RO-R1= MAX*SQRT( (MIN/MAX) ##241) 
0046 136 : Floating overflow could happen 
50 8000 8F Bpee 1 BICW #*x8000, RO ; RO-R1= ABS(....) 
4B 154 RET ; With result in RO-R1 
Doce 186 ZERO: 
4C 139 "  CLRa RO : result is zero 
4E 138 RET 
4F 
O4F 160 
O04F 161 
004F 162 END 
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ARG = 00000004 
MIHSSJACKET_HND seeeeree Xx (01 
MTHSCGABS 00000000 RG 1 
MTHSGSQRT_RS eeeeeree =X 0 
REALLO oppo ORE R 1 
000004C R 1 
$eromemmamamanracanae . 
! Psect synopsis ! 
gem mromn neon mnes + 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
-MTHSCODE Q000004F (¢ 79.) O1¢ 1.) PIC uUSR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


Phase Page faults CPU Time Elapsed Time 


Initialization ¢2 00:00:00.0 90:00:01 07 
Command processing 135 89:80:29.8 Bo #2: 4.15 
SetLT cane sor HEE 8:88:03 
Pass 2 4 §0:90;00.55 §0:00;09:58 
Symbol table output es Sa ST 00:00:00.01 
Psect synopsis output 00:00:00.0 00:00:00.02 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 29 00:00:01.96 00:00:11.16 


The working set Limit was 900 pages. 

2685 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 6 non-local and 0 local symbols. 
2 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

1 page of virtual memory was used to define 1 macro. 
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Macro Library name Macros defined 
“$255SDUAZB:(SYSLIBISTARLET.MLB:20 0 ttt 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESS1ION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHCGABS/OBJ=OBJ$:MTHCGABS MSRC$:MTHJACKET/UPDATE=(ENHS :MTHJACKET) +MSRC 
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